10 REM*****************************
20 REM*                           *
30 REM*    FILE PRINT EXPANDER    *
40 REM*            BY             *
50 REM*      JOHN CROOKSHANK      *
60 REM*         7/17/85           *
70 REM*                           *
80 REM* FOX VALLEY 64 USERS GROUP *
85 REM*                           *
90 REM*****************************
100 CLOSE2:CLOSE15:CLOSE4
110 POKE53280,0:POKE53281,0:POKE679,0
120 PRINT"[147]           [198][201][204][197][160][208][210][201][206][212][160][197][216][208][193][206][196][197][210]          ";
130 PRINT"           BY [202]OHN [195]ROOKSHANK           "
131 PRINT"      [215]AIT, [204]OADING [205][204] SUBROUTINE"
132 IFPEEK(49152)<>162ORPEEK(49153)<>2ORPEEK(49154)<>32ORPEEK(49155)<>198THEN134
133 GOTO140
134 JC=1:LOAD"XPANDML",8,1
140 PRINT"[145][154]   [205]IT DIESEM [208]ROGRAMM KANNST [196]U    "
150 PRINT"40-[218]EICHEN-[196][207][195]-[198]ILES AUSDRUCKEN.       "
160 PRINT"[196]IESE WERDEN IN EIN 80-[218]EICHEN-[198]ORMAT"
170 PRINT"TRANSFERIERT, ALSO GANZZEILIG GEDRUCKT."
180 PRINT"[196]U KANNST AUS DEM [198]ILE ABER AUCH EIN   "
190 PRINT"80-[218]EICHEN-[196]ISKFILE ERSTELLEN, DAS [196]U"
200 PRINT"WEITERBEARBEITEN KANNST. - [196]IE [193]USGABE"
210 PRINT"KANN AUCH AUF DEM [194]ILDSCHIRM ERFOLGEN."
220 PRINT"             [194]ITTE WAEHLEN: "
230 PRINT"    1: [198]ILE AUF [211]CREEN"
240 PRINT"    2: [198]ILE EXPANDIERT DRUCKEN"
245 PRINT"    3: [196]ISK-[198]ILE (EXPANDIERT)"
250 PRINT"      [154]     ([196]RUECKE 1 - 3)":POKE198,0
255 SYS49264
260 GETI$:IFI$<"1"ORI$>"3"THEN255
270 I=VAL(I$):ONIGOTO300,400,600
280 GOTO255
300 F$="":PRINT"[198]ILE-[206]AME EINGEBEN                 [157][157][157][157][157][157][157][157][157][157][157][157]";:INPUTF$
310 IFF$=""THEN10
320 OPEN15,8,15:OPEN2,8,2,"0:"+F$:GOSUB2000
330 PRINT"[147][154]";:SYS49152:CLOSE2:CLOSE15
340 IFPEEK(679)=88THEN10
350 PRINT"[198]ILE-[197]NDE  -  [212]ASTE DRUECKEN..":POKE198,0:CLOSE2:CLOSE15
360 GETI$:IFI$=""THEN360
370 GOTO10
400 F$="":PRINT"[198]ILE-[206]AME EINGEBEN                  [157][157][157][157][157][157][157][157][157][157][157][157]";:INPUTF$
410 IFF$=""THEN10
420 OPEN15,8,15:OPEN2,8,2,"0:"+F$:GOSUB2000
430 PRINT"[211]EKUNDAER-[193]DRESSE DES [196]RUCKERS     :"
440 PRINT"([206]ORMAL:  7)  7[157][157][157]";:INPUTSA
450 PRINT"[147][196]RUCKER EINSCHALTEN UND :  [210][197][212][213][210][206] "
460 PRINT"([208]RESS ANY KEY TO EXIT)":POKE198,0
470 GETI$:IFI$=""THEN470
480 IFI$<>CHR$(13)THEN10
490 CLOSE2:CLOSE15:OPEN15,8,15:OPEN2,8,2,"0:"+F$:GOSUB2000
500 PRINT"               [208]RINTING...              "
510 OPEN4,4,SA:POKE49578,0:POKE49579,4:SYS49326:CLOSE2:CLOSE15:PRINT#4:CLOSE4:GOTO10
600 F$="":PRINT"[198]ILE-[206]AME EINGEBEN                   [157][157][157][157][157][157][157][157][157][157][157][157]";:INPUTF$
610 IFF$=""THEN10
620 N$="":PRINT"[206]EUER [198]ILE-[206]AME               [157][157][157][157][157][157][157][157][157][157][157][157]";:INPUTN$
630 IFN$=""THEN10
640 CLOSE15:CLOSE2:CLOSE3:CLOSE4
650 OPEN15,8,15,"I0"
660 OPEN2,8,2,"0:"+F$:GOSUB2000
670 OPEN3,8,3,"0:"+N$+",S,W":GOSUB2000
680 PRINT"           [195]ONVERTING FILE...           "
690 POKE49578,0:POKE49579,3:SYS49326
700 CLOSE3:CLOSE4:CLOSE15:PRINT"[198]INISHED!":FORT=1TO1000:NEXT:GOTO10
2000 INPUT#15,E1,E$,E2,E3
2010 IFE1=0THENRETURN
2020 CLOSE2:CLOSE15
2030 PRINT"[147] [196]ISK [197]RROR! "
2040 IFE1=62THENPRINT""CHR$(34)F$CHR$(34)" [206]OT FOUND ON THIS DISK!"
2050 PRINT""E1;"[157] ";E$;E2;"[157]";E3"[157] "
2060 PRINT"[208]LEASE CHECK YOUR DISK AND DRIVE"
2070 PRINT"BEFORE TRYING AGAIN."
2080 FORT=1TO10000:GETS$:IFS$=" "THEN10
2090 NEXT:GOTO10